Labels:text | screenshot | diagram | plan | software OCR: File Edit Object View Run Window 1:40 PM Sets the formula for determining values for the list control Class - clsExportTable ::: popDBase Properties R T Oin 2 3. Macintosh HD Oid labo OK Export File Name Translation fldFileName "Oracle"=ORACLE O "Blaze"=BLAZE Export Table Item 1. "SQLServer"=SQLSERVER 1 Delimiter Type Item 1 popDelim Properties Database Type 04 Itemal 12 Export Cancel Translation "Tab"=Tab "Comma" =, :::: popTables Properties btnExport Properties 30 >TabOrder 3 Trash Translation Bitmap =select table_name, table_name from user_h-bles Click Sub Click() DIM vNumCols, vNumRows AS Long DIM vFileNum AS Integer Export_Import BookEntry DIM VDBType, vFileName, vTableName, vDelim, vOu DIM vSessObj, vRecObj AS Object REDIM vColNames(1), vColTypes(1) AS String REDIM vColPos(1), vOrder(1) AS Integer 802 9++0 vTableName = popTables. value Stufflt Expander vFileName = fldFileName.value vDBType = popDBase.value vSessObj = clsExportTable.popTables.GetRecordSet application.setcursor(1) 'normally performed after
